home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 85 / 085.d81 / crypt boot 85 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  871b  |  27 lines
  1. 5 poke53281,.:poke53280,.:printchr$(147)chr$(14)chr$(8)
  2. 10 gosub61000
  3. 11 poke214,9:print:print"       [154]??? [195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196] ???"
  4. 105 goto60000
  5. 110 :
  6. 10000 open15,8,15,"s0:cboot 85":close15:save"0:cboot 85",8:end
  7. 10010 :
  8. 60000 print"[144]load"chr$(34)"pxword 85"chr$(34)",8"
  9. 60025 print"run"
  10. 60035 poke631,13:poke632,13:poke633,13:poke198,3
  11. 60040 new
  12. 60999 :
  13. 61000 poke214,15:print
  14. 61110 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  15. 61120 print"  [152]                                    "
  16. 61130 print"                                      "
  17. 61140 print"                                      "
  18. 61150 print"        [208]ublished on [204][207][193][196][211][212][193][210] #85     "
  19. 61160 print"      [211]ubscriptions 1-800-831-2694    "
  20. 61170 print"          [193]ll [210]ights [210]eserved         "
  21. 61180 print"                                      "
  22. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  23. 61200 au$=" [195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]  ":poke214,17:print
  24. 61205 printspc(20-len(au$)/2)"[152]"au$
  25. 61210 au$="[194]y [198].[212]ucker/[194].[211]chulak ([195]) 1991":poke214,18:print
  26. 61220 printspc(20-len(au$)/2)"[152]"au$"":return
  27.